;solution algorithm for proj-euler problem 2

(defparameter *limit* 4000000)

(defun sum-euler2 (a b)
	(setq euler2 (+ euler2 a)) 
	(if (< b *limit*) (sum-euler2 b (+ (* b 4) a)) (return-from sum-euler2)))
	
(defun solve-euler2 ()
	(setq euler2 0)
	(sum-euler2 2 8)
	(format t "Euler 2: ~a" euler2))